在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表,那么运行时错误’1004‘就不期而遇的跳了出来。 老规则 —— 先删除再创建,删除工作表很简单嘛,Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口,Excel的产品经理考虑过宝宝们的用户体验吗!?删除工作表也搞得这么复杂,又不是从银行账户里转走500万。 每次都这么麻烦,必须拿出VBA来搞定它了。
Sub DelSheet(vShtName, Optional sWkName As String)
Dim sName
With Application
.DisplayAlerts = False
On Error Resume Next
If Len(sWkName) > 0 Then
Set objWk = ActiveWorkbook
Else
Set objWk = Workbooks(sWkName)
End If
If VBA.IsArray(vShtName) Then
For Each sName In vShtName
objWk.Sheets(sName).Delete
Next
Else
objWk.Sheets(sShtName).Delete
End If
On Error GoTo 0
.DisplayAlerts = True
End With
End Sub
这个事儿整的似乎有点儿大,一句代码怎么被扩展成了20多行。莫急,俗话说工欲善其事,必先利其器,以后调用起来就so easy。
Sub Demo()
'删除单个工作表
DelSheet Array("sheet1")
'删除多个工作表,并指定工作簿
DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
End Sub
无论是当前工作簿还是其他工作簿,即可以删除单个工作表,又可以删除一组工作表,随心所欲一句代码就搞定。
|